سلام دوستان

اگه یادتون باشه  یکی از دوستان برنامه ای داده بودند که بنویسم البته می خواستند بدونند که من در چه سطحی هستم. من هم برنامه رو می زارم تا ببینید و اشکالاتش رو بگید .

Grogram    faktoril;

Var

I,h : integer ;

A:array[1..201] of integer;

Begin

             For I := 1  to 201 do

             Readln (a[i]);

             H : = 0;

             For I := 1  to 201  do

             H : = a[i] * h ;

             Write ( "faktoril ="  h );

End.              

اگر مشکلی داشت بهم بگید .

خوش باشید.